home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…rary 5 (Internal Edition)
/
Apple R&P Lib Internal v5.0.iso
/
6-Developer Demos
/
Developer Demos-Ed.
/
Macintosh School® CD-ROM Demo
/
Macintosh SchoolÆ CD-ROM Demo
/
card_86495.txt
< prev
next >
Wrap
Text File
|
1990-08-14
|
2KB
|
111 lines
-- card: 86495 from stack: in
-- bmap block id: 87093
-- flags: 4000
-- background id: 69011
-- name:
----- HyperTalk script -----
on openCard
put the long date into card field "Date"
end openCard
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=151 top=322 right=336 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroll left
----- HyperTalk script -----
on mouseUp
lock screen
go prev
unlock screen
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=322 right=336 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroll right
----- HyperTalk script -----
on mouseUp
lock screen
go next
unlock screen
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=23 right=38 bottom=26
-- title width / last selected line: 0
-- icon id / first selected line: 5068 / 5068
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseDown
set icon of me to "Close Box Hi"
end mouseDown
on mouseLeave
set icon of me to "Close Box"
end mouseLeave
on mouseUp
set icon of me to "Close Box"
pop card
end mouseUp
-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=349 top=45 right=58 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date
-- part contents for card part 5
----- text -----
Monday, September 4, 1989